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SOFTWARE NOTICE 

All Wang Program Products (software) are licensed to customers in accordance 
with the terms and conditions of the Wang Standard Software License. No title or 
ownership of Wang software is transferred, and any use of the software beyond the 
terms of the aforesaid license, without the written authorization of Wang, is 
prohibited. 


WARNING 

This equipment generates, uses, and can radiate radio frequency energy and, if not 
installed and used in accordance with the instructions manual, may cause interfer¬ 
ence to radio communications. It has been tested and found to comply with the 
limits for a Class A computing device, pursuant to Subpart J of Part 15 of FCC 
rules, which are designed to provide reasonable protection against such interference 
when operated in a commercial environment. Operation of this equipment in a resi¬ 
dential area is likely to cause interference, in which case the user, at his own 
expense, will be required to take whatever measures may be required to correct the 
interference. 



INTRODUCTION 


The VS COBOL Quick Reference is a guide intended for experienced COBOL program¬ 
mers. It provides the syntax and program information you need to use the Wang VS COBOL 
compiler 3.8.4 or greater. 

VS COBOL Language Syntax contains the general formats for the four program divisions. 

It also gives the formats for specific paragraphs and entries. 

VS COBOL Statement Formats give the statement syntax used by the VS COBOL compiler. 
General formats for identifier, qualification, and conditions are also given. A glossary of 
terms is appended. 

The guide also includes a list of VS COBOL Reserved Words, Hexadecimal To Decimal 
Conversion, Powers of 2 and 16, Field Attribute Characters (FACs), and Translation Table. 

You need DMS/TX software and VS operating system 6.10 or greater to use DMS/TX state¬ 
ments. You also need VS operating system 6.20 or greater and any VS system, except 
VS 50 or VS 80, to use Relative Files. 

For more information regarding syntax and general rules, consult the VS COBOL Reference 
Manual (800-1201). 
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VS COBOL Language Syntax 


VS COBOL LANGUAGE SYNTAX 
Language Conventions 

The following conventions are used in this section: 

Capitalized or uppercase words are reserved words and have preassigned meanings in 
COBOL. This does not apply to words in quotation marks. 

Underlined reserved words are key words and must be used when that portion of the format 
is used. Optional reserved words are not underlined. 

The characters “ + “> ”, “ = ”, or equivalent reserved words, although not 

underlined, are required within the chosen formats. 

Words printed in lowercase letters represent information to be supplied by the programmer. 

Brackets “[ ]” indicate an optional portion of the format. 

Braces “ [ ] ” indicate that one of the options within the braces must be selected. 

When choice indicators, (| [], enclose a portion of a general format, one or more of the 
unique options contained within the choice indicators must be specified, but a single option 
may be specified only once. 

Options are stacked vertically within the brackets or braces. If one option within the brackets 
or braces contains only reserved words that are not underlined, that option is the default 
option. 

An ellipsis “...” indicates a unit may be repeated. A unit is either a single lowercase word or 
a group of lowercase and reserved words enclosed in brackets or braces. 

Entries shaded in light gray are treated as comments by the VS COBOL compiler and serve 
documentation purposes only 

Entries shaded in dark gray are VS extensions to ANSI COBOL. 

The COBOL source-program reference format, which defines the permissible locations of 
COBOL code on a line of text, is: 


Margin 

L 


Margin Margin 
C A 

I i 


Margin 

B 


Margin 

R 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 
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VS COBOL Language Syntax 


General Format for the Identification Division 

IDENTIFICATION DIVISION . 


PROGRAM-ID . 

[ AUTHOR . 
f INSTALLATION , 
f DATE-WRITTEN . 

[ DATE-COMPILED . 
[ SECURITY. 


program-name, 
[comment-entry]... ] 
[comment-entry]... ] 
[comment-entry]... ] 
[commgnt-entry]... ] 
[comment-entry]... ] 


General Format for the Environment Division 


ENVIRONMENT DIVISION . 

CONFIGURATION SECTION . 

SOURCE-COMPUTER . WANG-VS [WITH DEBUGGING MODE ]. 




' 

r WORDS 

1 

OBJECT-COMPUTER. 

WANG-VS 

MEMORY SIZE inteqer < 

CHARACTERS 

MODULES 

V > 

w 


[ PROGRAM COLLATING SEQUENCE IS alphabet-name ]. 


SPECIAL-NAMES . 

SWITCH-n [ jS mnemonic-name ] 

(ON STATUS JS condition-name-1 [ OFF STATUS JS condition-name-2 ] 
|OFF STATUS JS condition-name-3 [ ON STATUS \S condition-name-4 ] 

. . . , 1C fSTANDARD-l) 
alphabet-name IS < > 

“ \NATIVE j 

[ CURRENCY SIGN IS literal-1 ] 

[ DECIMAL-POINT IS COMMA ]. 

FIGURATIVE- C ONSTAN TS. 

[ (data-name-1 \S “hexadecimal-value” ] ... . ] 

INPUT-OUTPUT SECTION . 

FILE-CONTROL . [ file-control-entry ] ... 

1-0 CONTROL 


[ RERUN [ ON file-name-1 ] EVERY integer-1 RECORDS OF file-name-2 ] 




VS COBOL Language Syntax 


RECORD 
SAME SORT 

SORT-MERGE 


AREA FOR file-name-3 (file-name-4) 


File Control Entry: 

Consecutive File Organization 

SELECT file-name 


ASSIGN TO “parameter-reference-name” 


[ ORGANIZATION IS SEQUENTIAL 


SEQUENTIA L 

ACCESS MODE IS < RANDOM ' 
DYNAMIC 

[ FILE STATUS IS data-name-2 ] 

[ CURSOR POSITION IS data-name-3 ] 

[ BUFFER SIZE IS integer-1 BLOCKS ] 
f PFKEY IS data-name-41. 


Indexed File Organization 

SELECT file-name 


“DISPLAY” 
“PRINTER” 
. “TAPE” 


[ NODIS PLAY ] 


[ RELATIVE KEY IS 
data-name-1 ] 


ASSIGN TO “parameter-reference-name” [ “DISK” 1 f NQDISPLAY j 
ORGANIZATION IS INDEXED 


1 ACCESS MODE IS 


SEQUENTIAL 

RANDOM 

DYNAMIC 


RECORD KEY IS data-name-1 


[ ALTERNATE RECORD KEY integer-1 IS data-name-2 

[ WITH DUPLICATES ] 
[[integer-Z IS ] data-name-3 
[WITH DUPLICATES ! 1. 

[ FILE STATUS IS data-name-41 


AREA 1 

RESERVE inteaer-3 

IareasJ 
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VS COBOL Language Syntax 


Relative File Organization 

SELECT file-name 


ASSIGN TO “parameter-reference-name” [ “DISK” ] [NODISPLAY] 



[area 1 

RESERVE inteqer-1 

[areas] 

L J 

ORGANIZATION IS RELATIVE 


ACCESS MODE IS 


SEQUENTIAL 

( random ! 

i pYNAMICj 


[ RELATIVE KEY IS data-name-1 ] 
RELATIVE KEY IS data-name-1 


[ FILE STATUS IS data-name-2 ] 

[ B UFFER SIZE IS integer-2 BLOCKS ] 


Sort-Merge File Organization 

SELECT file-name 

ASSIGN TO “parameter-reference-name” 
[ BUFFE R SIZE IS integer BLOCKS ] 



[ NODISPLAY 1 


General Format for Data Division 


DATA DIVISION . 

[ FILE SECTION . 

[ file-description-entry ] 

(record-description-entry 
[ WORKING-STORAGE SECTION . 
[ 77-level-description-entry]... 

[ record-description-entry]... ] 
[ LINKAGE SECTION . 
[77-level-description-entry].. . 

[ record-description-entry ]... ] 


File Description Entry: 


Format 1 

FD file-name 

[ BLOCK CONTAINS [ integer-1 TO ] integer-2 


( RECORDS 1 
(CHARACTERSJ 





VS COBOL Language Syntax 


; RECORD CONTAINS [ integer-3 TO ] integer-4 [ COMPRESSED ] CHARACTERS ] 


LABEL 


i RECORD IS 
/ RECORDS ARE 
/ 


/ standard ! 

\ OMITTED f 


VALUE OF / 


FILENAME IS 

Jdata-name-ll 
/literal-1 J 

LIBRARY IS 

jdata-name-2l 
s literal-2 j 

VOLUME IS 

/data-name-3^ 
/literal-3 J 

SPACE IS 

data-name-4 

POSITION IS 

data-name-5 

INDEX AREA IS 

data-name-6 

DATA AREA IS 

data-name-7 

RECOVERY-BLOCKS IS 

/data-name-8/ 

j 

RECOVERY-STATUS IS 

data-name-9 

DATABASE-NAME IS 

data-name-10 


> 


DATA 


/ record IS 

^ RECORDS ARE 
[ CODE-SET IS alphabet-name ] 

Format 2 


data-name-11 [ data-name-12]... 


SD file name 


(records \ 

BLOCK CONTAINS integer-1 <— > 

\charactersJ 


[ RECORD CONTAINS \ inteqer-2 TO 1 inteqer-3 : [ COMPRESSED I CHARACTERS 1 


VALUE OF j 

f 

t 

VOLUME IS /data-name-l\ 

/literal-1 J 

SPACE IS data-name-2 




DATA 


/ RECORD IS 
1 RECORDS ARE 


data-name-3 [ data-name-4 ]. 
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VS COBOL Language Syntax 


Data and 77-Level Description Entries: 
Format 1 


level-number 


(data-name-1 

( FILLER 


' REDEFINES data-name-2 ] 


( picture ) 

W / 


IS character-string 


(leading 1 



/ \ 

- 


BINARY 


[USAGE IS 1 < 

COMPUTATIONAL 

COMP 

> 

DISPLAY-WS 


DISPLAY 



JNDEX 



SIGN IS 1 < —-— > [ SEPARATE CHARACTER 1 

- ( TRAILING ) - 

} 


( SYNCHRONIZED 
( SYNC 

( justifie d 

( JUST 


LEFT 

RIGHT 


RIGHT 


BLANK WHEN ZERO 1 


VALUE IS /' lteral X 

(user-figurative-constant j 

r _ rirnr . TlllI _ r r (ascending 1 

OCCURS inteqer-1 TIMES < > 

- y (DESCENDING f 

[ INDEXED BY (index-name-1 ]...]. 

Format 2 

88 condition-name 


KEY IS [ data-name-31 .. 


( value IS 

( VALUES ARE 


: literal-1 


( through ! 




THRU 


/ 


literal-2 


Record Description Entry for Workstation Screen: 
01 record-name [ USAGE IS ] DISPLAY-WS . 

(data-name- 


level-number 


( FILLER 




6 







VS COBOL Language Syntax 


COLUMN NUMBER IS integer-1] 
/PIC \ 


Jrow ) 

\ LINE j 


NUMBER IS integer-2 


] PICTURE j 


IS character-string 


RANGE IS 


{ NEGATIVE 
FROM 

POSITIVE 

table-name 


(data-name-2) 
^literal-1 J 


TO 


(data-name-3^ 
(Jiteral-2 J 


[ OBJECT IS data-name-4 ] 

[ OCCURS integer-3 TIMES ]. 


[ 


VALUE IS literal-3 
SOURCE IS data-name-5 


General Format for Procedure Division 

PROCEDURE DIVISION f USING data-name-1 [ data-name-2 ]... ]. 
procedure division body. 


Procedure Division Body: 


Format 1 

[ DECLARATIVES . 

[section-name SECTION [segment-number], declarative sentence. 
[ paragraph-name. [ sentence ]...]...]■•• 

END DECLARATIVES .l 

[section-name SECTION [segment-number]. 

[ paragraph-name. [ sentence 

Format 2 

( paragraph-name. [ sentence ]...)... 
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Declarative Sentence: 

USE STATEMENT 

Format 1 

USE AFTER STANDARD i EXCEPTION I PR0CEDURE0N 

- \ ERROR j - 

✓ \ 
file-name-1 [file-name-2] 

INPUT 

OUTPUT 

K) 

SHARE D 
EXTEND 


< 


> 


Format 2 


USE FOR DEBUGGING ON 


Tprocedure-name-1 [ procedure-name-2 ] 


|ALL P ROCED U RES 


} 


Format 3 

USE AFTER DEADLOCK . 

VS COBOL STATEMENT FORMATS 


ACCEPT STATEMENT 
Format 1 

ACCEPT identifier-1 [ identifier-2 ]... 

Format 2 

ACCEPT identifier FROM 



ADD STATEMENT 
Format 1 


A jidentifier-ll identifier-2 

ADD < > 

^literal-1 J [literal-2 


identifier-2 
literal-2 

[ ON SIZE ERROR imperative-statement 


. TO identifier-m [ROUNDED] 






VS COBOL Statement Formats 


s-ormat 2 

ADD 


/identifier-1) /identifier-21 I 
/literal-1 ) (literal-2 / [ 


identifier-3 

literal-3 


GIVING identifier-m [ ROUNDED ] 

[ ON SIZE ERROR imperative-statement ] 


Format 3 
ADD 


^correspondin g! identifieM T0 identifi er-2 f ROUNDED 1 
\ CORR j — 

ON SIZE ERROR imperative-statement ] 


ALTER STATEMENT 

ALTER [ procedure-name-1 TO [PROCEED TO] procedure-name-2 J... 


CALL STATEMENT 

CALL literal-1 [ USING identifier-1 [ identifier-2 ] 


CLOSE STATEMENT 
Consecutive File Organization 

/reel! 


CLOSE file-name-1 


file-name-2 


/ UNIT j 
WITH 

rREELl 
( UNIT / 

WITH 


[~WITH NO rewind " 
[for REMOVAL J 

(no rewind ! 

/ LOCK / 

[ WITH NO REWIND ! 
FOR REMOVAL J 

Jno rewind "! 

/ LOCK J 


Indexed and Relative File Organization 

CLOSE (file-name-1 [WITH LOCK 11. 


COMPUTE STATEMENT 

COMPUTE identifier-1 f ROUNDED 1 - arithmetic-expression 
[ ON SIZE ERROR imperative-statement ] 



VS COBOL Statement Formats 


COPY STATEMENT 



DELETE STATEMENT 

DELETE file-name RECORD [ INVALID KEY imperative-statement 1 


DISPLAY STATEMENT 


DISPLAY 



identifier-2 

literal-2 


DISPLAY AND READ STATEMENT 

DISPLAY AND READ [A LTERE D J record-name ON file-name 

fpFKEY \ /identifier-l) ridentifier-2 

1 -“ 1 \PFKEYSJ [integer-1 / [integer-2 

JpFKEY ^ Jidentifier-3\ [identifier-4 




] 


ON 


[PFKEYSj [integer-3 / [mteger-4 
NO-MOD imperative-statement-2 ] 


l 


imperative-statement-1 j 


DIVIDE STATEMENT 
-ormat 1 


DIVIDE 


J identifier-1 
(literal-1 


INTO 


identifier-2 [ROUNDED] 


’ ON SIZE ERROR imperative-statement ] 


Format 2 

DIVIDE / iden ' ifieM ! INTO / identifier ‘ 2 l 
[literal-1 J [literal-2 j 

GIVING identifier-3 [ ROUNDED ] 


[ ON SIZE ERROR imperative-statement ] 
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VS COBOL Statement Formats 


Format 3 

DIVIDE 




/identifier-2) 


/identifier-1) By ™.- - , 

/literal-1 J "/literal-2 j 

identifier-3 [ROUNDED] 


GIVING 

[ ON SIZE ERROR imperative-statement 

Format 4 


DIVIDE 


J identifier-1 


V 


/literal-1 

GIVING identifier-3 [ ROUNDED 


INTO 


J identifier-2 
\ literal-2 


DIVIDE 


REMAINDER identifier-4 [ ON SIZE ERROR imperative-statement ] 
/identifier-' 


Format 5 

' by / identifier - 2 

^literal-1 J (^literal-2 

GIVING identifier-3 [ ROUNDED ] 


} 


REMAINDER identifier-4 [ ON SIZE ERROR imperative-statement ] 


ENTER STATEMENT 

ENTER language-name [routine-name]. 


EXIT STATEMENT 

EXIT 


EXIT PROGRAM STATEMENT 

EXIT PROGRAM. 


FREE STATEMENT 

FREE ALL [ ON ERROR imperative-statement ] 
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VS COBOL Statement Formats 


GO TO STATEMENT 
Format 1 

GOTO [procedure-name-1] 

Format 2 

GOTO procedure-name-1 [ procedure-name-2]... procedure-name-n 
DEPENDING ON identifier 


HOLD STATEMENT 
Format 1 

HOLD EXTENSION-RIGHTS 


TIMEO 


L 

[ HOLDER-ID IN data-name-2 ] 
Jimperative-statement-ll 


Jdata-name-l'l [SECOND 1 
\integer / LSECONDS 


(NEXT SENTENCE 
[ ON ERROR imperative-statement-2 ] 


J 


Format 2 

HOLD [ LIST ] 

RECORDS OF file-name-1 




[for 


(retrieval^ 


FOR 


TIMEOUT OF 


fda j 


IUPDA 


\UPDATE 


> 


keypnrase 


ta-name-11 
(integer f 
[ HOLDER-ID IN data-nan 
j imperative-statementl 
\ NEXT SENTENCE / 


^ECON 




keyphrase: 
WITH KEYS 


INITIAL 


/ data-name-3l 
literal-1 J 


/HAF 


., .. .ame-4\ I 

'■ i literal-2 f\ 


I data-nan 


OPTION: 
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VS COBOL Statement Formats 


!F STATEMENT 


Format 1 


IF condition THEN 


Format 2 


IF condition THEN 


Format 3 


statement-1 
NEXT SENTENCE 


statement-1 
NEXT SENTENCE 
statement-2 
NEXT SENTENCE 


IF FAC OF display-item 


IS = 

IS EQUAL TO 
IS NOT EQUAL TO 
IS NOT = 


data-name 


) statement-1 I 

\ NEXTSENTENCE ! 
| statement-2 | 

1NEXT SENTENCE I 


. Format 4 


IE FAC OF display-item ALTERED THEN 


—> Format 5 


IF figurative-constant 


[statement-1 
I NEXT SENTENCE! 


[statement-2 
| NEXT SENTENCE j 


identifier 


FAC OF display-itemj 


ISf NOT1 


| statement-1 \ 

) NEXT SENTENCE I 
[statement-2 \ 

) NEXT SENTENCE I 
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INSPECT STATEMENT 


Format 1 


INSPECT identifier-1 TALLYING 


identifier-2 FOR 


BEFORE 


ALL I 
LEADING ) 
CHARACTERS 


identifier-3 

literal-1 


AFTER 


INITIAL 


identifier-4 

literal-2 


Format 2 


INSPECT identifier-1 REPLACING 


CHARACTERS BY 


LEADING 


BEFORE 

AFTER 


(identifier-6 
/literal-4 

identifier-5l 
literal-3 / 

INITIAL 


BEFORE 

AFTER 


INITIAL 


identifier-6 

literal-4 


identifier-7 

literal-5 


Format 3 


INSPECT identifier-1 TALLYING 


identifier-2 FOR 


BEFORE 


AFTER 


LEADING 


CHARACTERS 


identifier-3 

literal-1 


INITIAL 


identifier-4 

literal-2 


identifier-7 

literal-5 
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REPLACING 
' CHARACTERS BY 

//— \ J 

< < LEADING)* < 


identifier-61 [BEFORE 


BEFORE 

AFTER 


(literal-4 


I identifier-5 
I literal-3 


INITIAL 


AFTER 


INITIAL 


identifier-7 

literal-5 


J identifier-6 
\literal-4 


identifier-7 

literal-5 


MERGE STATEMENT 

MERGE file-name-1 ON < ASCE ^- D | NG \ KEY data-name-1 [ data-name-2 ] 
- | DESCENDING ( 


ON iASCENJD1NG 1 data-name-3 [ data-name-4 ] 
^DESCENDING I 


[ COLLATING SEQUENCE IS alphabet-name ] 
USING file-name-2 [file-name-3] ... 


OUTPUT PROCEDURE IS section-name-1 


GIVING file-name-4 


THROUGH 


section-name-2 


MOVE STATEMENT 


Format 1 


I identifier-1 


TO identifier-2 [ identifier-3 ] 


Format 2 


MOVE WITH CONVERSION identifier-1 TO identifier-2 
[ ON ERROR imperative-statement ] 


Format 3 


MOVE figurative-constant TO FAC OF data-name 
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Format 7 



MULTIPLY STATEMENT 


Format 1 


MULTIPLY 


identifier-1 

literal-1 


BY identifier-2 [ ROUNDED ] 


[ ON SIZE ERROR imperative-statement ] 


Format 2 


MULTIPLY 


identifier-1 

literal-1 


identifier-2 

literal-2 


GIVING identifier-3 [ ROUNDED 1 


i ON SIZE ERROR imperative-statement ] 


OPEN STATEMENT 


Consecutive File Organization 


INPUT 


i file-name-1 


OUTPUT (file-name-2] 
1-0 (file-name-3] 


EXTEND (file-name-5] 


Indexed File Organization 


INPUT 


f file-name-1 


OUTPUT (file-name-2] 
1-0 (file-name-3 ] 
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Relative File Organization 

( INPUT (file-name-1 ) ... 

OPEN i QUTPUT (file-name-2) ... 

| liQ (file-name-3) ... 

S EXTEND (file-name-4) ... 


—. PERFORM STATEMENT 


Format 1 


PERFORM procedure-name-1 


Format 2 


PERFORM procedure-name-1 


identifier-1 

integer-1 


TIMES 


THROUGH 


THRU 

THROUGH 


procedure-name-2 


procedure-name-2 


Format 3 


PERFORM procedure-name-1 


UNTIL condition-1 


THROUGH 


procedure-name-2 


Format 4 


PERFORM procedure-name-1 


VARYING 


THRU 

THROUGH 


identifier-2 

index-name-1 


procedure-name-2 


identifier-3 


FROM < index-name-2 
L literal-1 , 


nw j identifier-4 1 

BY < > UNTIL condition-1 

— I literal-2 j 
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READ STATEMENT 


Consecutive File Organization 


Format 1 


READ file-name [NEXT] RECORD [WITH HOLD ! [ INTO identifier] 
[ AT END imperative-statement ] 


Format 2 


WITH HOLD 

READ file-name [NEXT] RECORD MODIFIABLE 


' INTO identifier! 


ALTERED 


INVALID KEY 
AT END 


imperative-statement 


Indexed File Organization 


Format 1 


READ file-name [NEXT] RECORD j 


TIMEOUT OF 

(integer J 

[ HOLDER-ID IN data-name-2 ] 
fimperative-statementl 
( NEXT SENTENCE / 

[ AT END imperative-statement ] 


INTO identifier ] 


SECOND 

SECONDS 


Format 2 


READ file-name RECORD INC [ INTO identifier] 




KEYISdata-name-3] 


data-name- 


j E 


TIMEOUT OF 'V 

(^integer J 

[ H OLDER-I D IN data-name-2 ] 
Jimperative-statement\ 

( NEXTSENTENCE / 

[ INVALID KEY imperative-statement 


SECOND 

SECONDS 
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Relative File Organization 
Format 1 

READ file-name [ NEXT 1 RECORD [WITHHOLD]' I INTO identifier 1 
[ AT END imperative-statement ] 

Format 2 

READ file-name RECORD ; [ V-n |\ | hOLD ] [ INTO identifier ] 

[ INVALID KEY imperative-statement ] 


READY TRACE STATEMENT 
READY TRACE 


RELEASE STATEMENT 

RELEASE record-name f FROM identifier! 


RESET TRACE STATEMENT 
RESET TRACE 


RETURN STATEMENT 

RETURN file-name RECORD [ INTO identifier] AT END imperative-statement 

REWRITE STATEMENT 
Consecutive File Organization 


Format t 

REWRITE record-name [ FROM identifier ] 


Format 2 

REWRITE record-name [ FROM identifier ] AFTER 




[ALARM 



fidentifier-l\ /r( 

Wl /identifier^/ 



SETTING CURSOR COLUMN < > 

MEJ [^integer-2 j 



^integer-1 J [Lll 


< 

ROLL DOWN 

ROLL UP 

ERASE PROTECT 

ERASE MODIFY 


> 


V 

/ 
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Indexed and Relative File Organization 

REWRITE record-name [ FROM identifier ] 

[ INVALID KEY imperative-statement ] 


ROLLBACK STATEMENT 

ROLLB ACK [ ON ER ROR imperative-statement ] 

SEARCH STATEMENT 
Format 1 


SEARCH identifier-1 

VARYING 

identifier-2 'I 



lindex-name-1 J 


[ AT END imperative-statement-1] 
WHEN condition-1 

WHEN condition-2 


imperative-statement-2 \ 
NEXT SENTENCE 


imperative-statement-31 
NEXT SENTENCE 


Format 2 

SEARCH ALL identifier-1 f AT END imperative-statement-1] 


WHEN 


{ 


data-name-1 


condition-name-1 


IS EQUAL T0l I 

if 

/ [arr 


fidentifier-3 


literal-1 
arithmetic-expression-11 


AND 


{ 


data-name-2 

condition-name-2 


flS EC 

\IS = 


EQUAL TCH 


{ identifier-4 
literal-2 
arithmetic-expression-2 J 


Jimperative-statement-2 
1 NEXT SENTENCE 
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SET STATEMENT 


Format 1 


SET 


Format 2 


(identifier-1 


' identifier-2 ] 


S r TO 

^index-name-1 [ index-name-2 ] - -J 


{ identifier-3 
index-name-3 ] 
integer-1 


SET index-name-4 [ index-name-5 ].. 


Format 3 

SET figurative-constant 

SORT STATEMENT 

SORT file-name-1 ON 

ON 


(UP BY ) (identifier-4 
1 DOWN BY J (jnteger-2 

flNFAQQFl (display-item) (ON) 

\QF j ^identifier-5 j \OFFj 


ASCENDING ) 
DESCENDING^ 

ASCENDING ) 
DESCENDING J 


KEY (data-name-1 


KEY f data-name-2) 


[ WITH DUPL ICATES IN ORDER J 
[ COLLATING SEQUENCE IS alphabet-name ] 




INPUT PROCEDURE IS section-name-1 
USING file-name-2 [ file-name-3 ]... r 

> 

OUTPUT PROCEDURE IS section-name-3 
| GIVING file-name-4 


through) 


THRU 


7 


section-name-2 


through ) 


THRU 


/ 


section-name-4 


START STATEMENT 


Consecutive File Organization 

START file-name 
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VS COBOL Statement Formats 


Indexed File Organization 


START file-name 


KEY [ data-name-1] 


IS EQUAL TO 
IS = 

IS GREATER THAN 
IS > 

IS NOT LESS THAN 
IS NOT < 


data-name-2 


’ INVALID KEY imperative-statement ] 


Relative File Organization 


START file-name 


'IS EQUAL TO > 

IS = 

IS GREATER THAN 
IS>_ 

J IS LESS THAN 

\WM 

IS NOT LESS THAN 
IS NOT < 

IS NOT GREA TER THAN 
S. IS NOT > > 


data-name 


' INVALID KEY imperative-statement ] 


STOP STATEMENT 


STRING STATEMENT 


STRING 


identifier-1 

literal-1 


. DELIMITED BY 


identifier-2 

literal-2 


INTO identifier-3 
[ WITH POINTER identifier-4 ] 

[ ON OVERFLOW imperative-statement ] 
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VS COBOL Statement Formats 


SUBTRACT STATEMENT 
Format 1 


SUBTRACT 


Tidentifier-11 
(literal-1 


ll identifier-21 

j literal-2 J 


[ ON SIZE ERROR imperative-statement ] 


Format 2 


SUBTRACT 


Jidentifier- 

/literal-1 


FROM identifier-m [ ROUNDED 1 


identifier-2 

. . FROM 

/identifier-ml 

literal-2 


/literal-m J 


GIVING identifier-n [ ROUNDED ] 

[ ON SIZE ERROR imperative-statement ] 


Format 3 


SUBTRACT 


[CORRESPONDING 




CORR 


identifier-1 FROM identifier-2 [ ROUNDED ] 


[ ON SIZE ERROR imperative-statement ] 


UNSTRING STATEMENT 

UNSTRING identifier-1 


DELIMITED BY [ALL] 


/identifier-2 
/literal-1 


INTO [identifier-4 [ DELIMITER IN identifier-51 


OR | ALL | /“ 8n,i,i8r - 3 ' 
— 1 - /literal-2 

COUNT IN identifier-6 


[ WITH POINTER identifier-7 ] 
[ TALLYING IN identifier-8 1 
[ ON OVERFLOW imperative-statement ] 


WRITE STATEMENT 

Consecutive File Organization 

WRITE record-name [ FROM identifier-1] 

/before! 

(AFTER J ADVANCING 


[identifier-2 
(integer 


LINE 1 
LINES] 


user-figurative-constant 
PAGE 
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VS COBOL Statement Formats 


Indexed File Organization 

WRITE record-name [ FROM identifier] 


TIMEOUT OF / data ' name - 1 l 

^integer ) \ 

L f HOLDER-ID IN data-name-21 

("imperative-statement) 

^NEXTSENTENCE /] 

SECOND 1 

seconds] 



[ INVALID KEY imperative-statement ] 


Relative File Organization 

WRITE record-name [ FROM identifier ] 

[ INVALID KEY imperative-statement ] 


GENERAL FORMATS FOR CONDITIONS 
Condition: 

Simple condition 
NOT Simple condition 
Combined condition 
NOT Combined condition 

Simple conditions: 

Class, Condition-name, Figurative-constant, Modified-data-tag, Relation, Sign, and 
Switch-status. 


Combined condition: 


condition-1 



condition-2 


Relational operator: 




< 


\ 


IS [ NOT ] GREATER THAN 
IS [ NOT ] LESS THAN 
IS [ NOT 1 EQUAL TO 
IS [ NOT 1 < 

ISf NOT1 > 

IS [NOT] = 


\ 


> 




Class condition: 

identifier IS [ NOT ] 


NUMERIC "I 
ALPHABETIC J 
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General Formats 


Condition-name and Switch-status condition: 

condition-name 


Figurative-constant condition: 


figurative-constant 


identifier 


OF f [ FAC OF display-item 


Modified-data-tag condition: 

FAC OF display-item ALTERED 


IS [ NOT 1 


Relation condition: 


identifier-1 


literal-1 

arithmetic-expression-1 


Sign condition: 


' relational-operator ] 


arithmetic-expression IS [ NOT ] 


POSITIVE 

NEGATIVE 


identifier-2 

literal-2 

arithmetic-expression-2 


Abbreviated combined relation condition: 


relation-condition 


' NOT ] [ relational-operator ] object 


MISCELLANEOUS FORMATS 
QUALIFICATION 


Format 1 


data-name-1 

condition-name 


Format 2 


paragraph-name 


Format 3 


text-name 


data-name-2 


section-name 


library-name 


volume-name 
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Miscellaneous Formats 


SUBSCRIPTING 

.data-name 

(condition-name 


(subscript-1 [subscript-2 [subscript-3] ] ) 


INDEXING 


data-name 

condition-name 


/ Jindex-r 
\ |Jiteral-1 


name-1 [± literal-2 ]1 

i f 


index-name-2 [± literal-4] 
literal-3 

index-name-3 [± literal-6] 
literal-5 


IDENTIFIER 


Format 1 


data-name-1 


data-name-2 


[ subscript-1 [ subscript-2 
[subscript-3]])] 


Format 2 


data-name-1 


data-name-2 


index-name-1 [± literal-2] 
literal-1 

index-name-2 [± literal-4] 
literal-3 


index-name-3 [ ± literal-6 ] 
literal-5 
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Glossary 


GLOSSARY 

Alphabet-Name 

Area A 

Area B 

Arithmetic Expression 

Character-String 

COBOL Word 

Comment-Entry 

Comment Line 

Condition 


A user-defined word, in the SPECIAL-NAMES paragraph of 
the Environment Division, that assigns a name to a specific 
character set and/or collating sequence. 

This area occupies character positions 8 through 11 on a line 
of a COBOL source program. It is reserved for the beginning 
of division headers, section names, paragraph names, level 
indicators, and certain level numbers. 

This area occupies character positions 12 through 72. It con¬ 
tains all remaining source code in a COBOL source program. 

An identifier of a numeric elementary item, a numeric literal, 
such identifiers and literals separated by arithmetic operators, 
two arithmetic expressions separated by an arithmetic opera¬ 
tor, or an arithmetic expression enclosed in parentheses. 

A sequence of contiguous characters which form a 
COBOL word, a literal, a PICTURE character-string, or a 
comment-entry. 

A character-string of not more than 30 characters which 
forms a user-defined word, a system-name, or a reserved 
word. 

An entry in the Identification Division that may be any combi¬ 
nation of characters from the computer’s character set. 

A source program line represented by an asterisk (*) in the 
indicator area of the line and any characters from the com¬ 
puter’s character set in area A and area B of the line. The 
comment line serves only for documentation in a program. 

A special form of comment line represented by a slant (/) in 
the indicator area of the line and any characters from the 
computer’s character set in area A and area B of that line 
causes page ejection prior to printing the comment. 

When the term ‘condition’ (condition-1, condition-2,...) 
appears in these language specifications in or in reference to 
‘condition’ (condition-1, condition-2,.. .) of a general format, 
it is a conditional expression consisting of either a simple 
condition optionally parenthesized, or a combined condition 
consisting of the syntactically correct combination of simple 
conditions, logical operators, and parentheses, for which a 
truth value can be determined. 
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Glossary 


Condition-Name 


Data Item 

Data-Name 

Declarative Sentence 
Display-Item 
Figurative Constant 

File-Name 

Flexadecimal Value 

Identifier 

Imperative Statement 

Implementor-Name 


A user-defined word that assigns a name to a subset of 
values that a conditional variable may assume; or a user- 
defined word assigned to a status of an implementor-defined 
switch or device. When ‘condition-name’ is used in the gen¬ 
eral formats, it represents a unique cata item reference 
consisting of a syntactically correct combination of a 
condition-name, together with qualifiers and subscripts, as 
required for uniqueness of reference. 

A unit of data (excluding literals) defined by the COBOL 
program. 

A user-defined word that names a data item described in a 
data description entry When used in the general formats, 
‘data-name’ represents a word which must not be sub¬ 
scripted or qualified unless specifically permitted by the 
rules of the format. 

A compiler directing sentence consisting of a single USE 
statement terminated by the separator period. 

A data-name that is defined within a Record Description 
Entry for a Workstation Screen. 

Reserved words that are used to name and reference specific 
constant values. Specifically, they are zero(s or es), space(s), 
high-value(s), low-value(s), and quote(s). 

A user-defined word that names a file described in a file 
description entry or a sort-merge file description entry within 
the File Section of the Data Division. 

A hexadecimal value can be either two or four hexadecimal 
characters. The hexadecimal value must be enclosed in 
quotation marks. A hexadecimal character is any of the 
characters, ‘O’, T,..., ‘9’, or ‘A’,..., ‘F’. 

A syntactically correct combination of a data-name, with its 
qualifiers or subscripts, as required for uniqueness of refer¬ 
ence, that names a data item. The rules for ‘identifier’ associ¬ 
ated with the general formats may, however, specifically 
prohibit qualification or subscripting. 

A statement that begins with an imperative verb and specifies 
an unconditional action to be taken. An imperative statement 
may consist of a sequence of imperative statements. 

A system-name that refers to a particular feature available on 
that implementor’s computing system. 
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Glossary 


Index 

Index-Name 

Indicator Area 

Integer 

Language-Name 

Level-Number 


Library-Name 

Literal 

Mnemonic-Name 

Nonnumeric Literal 

Numeric Literal 


A computer storage area or register, the content of which rep¬ 
resents the identification of a particular element in a table. 

A user-defined word that names an index associated with a 
specific table. 

This area occupies column seven on a line in a COBOL 
source program. It is used to indicate continuation lines and 
comment lines. 

A numeric literal or a numeric data item that does not include 
any digit position to the right of the decimal point. When the 
term ‘integer’ appears in general formats, integer must not be 
a numeric data item, and must not be signed, nor zero unless 
explicitly allowed by the rules of that format. 

A system-name that specifies a particular programming 
language. 

A user-defined word, expressed as a one or two digit number, 
which indicates the hierarchical position of a data item or the 
special properties of a data description entry. Level-numbers 
in the range 1 through 49 indicate the position of a data 
item in the hierarchical structure of a logical record. Level- 
numbers in the range 1 through 9 may be written either as a 
single digit or as a zero followed by a significant digit. Level- 
numbers 77 and 88 identify special properties of a data 
description entry. 

A user-defined word that names a VS COBOL library that is 
to be used by the compiler for a given source program 
compilation. 

A character-string whose value is implied by the ordered set 
of characters comprising the string. A literal can be numeric 
or nonnumeric. 

A user-defined word that is associated in the Environment 
Division with a specific implementor-name. 

A literal bounded by quotation marks. The string of characters 
may include any character in the computer’s character set. 

A literal composed of one or more numeric characters that 
may contain either a decimal point, or an algebraic sign, or 
both. The decimal point must not be the rightmost character. 
The algebraic sign, if present, must be the leftmost character. 
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Glossary 


Paragraph-Name 

Parameter-Reference-Name 

Procedure-Name 

Program-Name 
Record Description Entry 
Record-Name 

Routine-Name 

Section-Name 

Segment-Number 

Sentence 

Sequence Number Area 

Statement 

Subscript 

System-Name 


A user-defined word that identifies and begins a paragraph in 
the Procedure Division. 

A name that identifies a specific GETPARM request. 

A user-defined word which is used to name a paragraph or 
section in the Procedure Division. It consists of a paragraph- 
name that may be qualified or a section-name. 

In the Identification Division, a user-defined word that identi¬ 
fies a COBOL source program. 

The total set of data description entries associated with a 
particular record. 

A user-defined word that names a record described in a 
record description entry in the Data Division of a COBOL 
program. 

A user-defined word that defines a procedure written in a 
language other than COBOL. 

A user-defined word which names a section in the Procedure 
Division. 

A user-defined word which classifies sections in the Pro¬ 
cedure Division for purposes of segmentation. Segment- 
numbers may contain only the characters ‘O’, T,..., ‘9’. 

A segment-number may be expressed either as a one or 
two digit number. 

A sequence of one or more statements, the last of which is 
terminated by a period. 

This area occupies the character positions 1 through 6 on a 
line in a COBOL source program. It consists of six digits in 
the sequence area and labels each source program line. The 
EDITOR assigns these numbers automatically when the 
COBOL source text is entered. 

A syntactically valid combination of words and symbols, 
beginning with a verb written in a COBOL source program. 

An integer whose value identifies a particular item in a table. 

A COBOL word which is used to communicate with the oper¬ 
ating environment. 
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Glossary 


Table-Name 

User-Figurative Constant 
Volume-Name 


A user-defined word that references a numeric or alpha¬ 
numeric data item whose data description contains an 
OCCURS clause. 

A user-defined word that is used to name and reference a 
hexadecimal character 

A user-defined word that names a VS volume. 
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VS COBOL Reserved Words 


VS COBOL RESERVED WORDS 


ACCEPT 

ACCESS 

ADD 

ADVANCING 

AFTER 


ALL 

ALPHABETIC 

ALSO 

ALTER 


ALTERNATE 

AND 

ARE 

AREA 

AREAS 

ASCENDING 

ASSIGN 

AT 

AUTHOR 


BEFORE 

BINARY 

BLANK 

BLOCK 


BOTTOM 


CALL 

CANCEL 

CD 

CF 

CH 

CHARACTER 

CHARACTERS 

CLOCK-UNITS 

CLOSE 

COBOL 

CODE 

CODE-SET 

COLLATING 

COLUMN 

COMMA 

COMMUNICATION 

COMP 


COMPRESSED 

COMPUTATIONAL 

COMPUTE 

CONFIGURATION 

CONTAINS 

CONTROL 

CONTROLS 

CONVERSION 

COPY 

CORR 

CORRESPONDING 

COUNT 

CURRENCY 

CURSOR 

DATA 

DATABASE-NAME 

DATE 

DATE-COMPILED 

DATE-WRITTEN 

DAY 

DE 

DEADLOCK 

DEBUG-CONTENTS 

DEBUG-ITEM 

DEBUG-LINE 

DEBUG-NAME 

DEBUG-SUB-1 

DEBUG-SUB-2 

DEBUG-SUB-3 

DEBUGGING 

DECIMAL-POINT 

DECLARATIVES 

DELETE 

DELETION 

DELIMITED 

DELIMITER 

DEPENDING 

DESCENDING 

DESTINATION 

DETAIL 

DISABLE 

DISPLAY 

DISPLAY-WS 

DIVIDE 

DIVISION 

DOWN 


DUPLICATES 

DYNAMIC 


ELSE 

EMI 

ENABLE 

END 

END-OF-PAGE 

ENTER 

ENVIRONMENT 

EOP 

EQUAL 

ERASE 

ERROR 

ESI 

EVERY 

EXCEPTION 

EXCLUSIVE 

EXIT 

EXTEND 

EXTENSION-RIGHTS 

Ifac; 

FD 

FIGURATIVE-CONSTANTS 

FILE 

FILE-CONTROL 

FILENAME 

FILLER 

FINAL 

FIRST 

FOOTING 

FOR 

FREE 

FROM 

GENERATE 

GIVING 

GO 

GREATER 

GROUP 

HEADING 

HIGH-VALUE 

HIGH-VALUES 

HOLD 
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VS COBOL Reserved Words 


VS COBOL RESERVED WORDS (Continued) 


: HOLDER-ID 

IDENTIFICATION 

IF 

IN 

INDEX 

INDEXED 

INDICATE 

INITIAL 

INITIATE 

INPUT 

INPUT-OUTPUT 

INSPECT 

INSTALLATION 

INTO 

INVALID 

B 

i-o 

l-O-CONTROL 

IS 

JUST 

JUSTIFIED 

KEY 

KEYS: 

LABEL 

LAST 

LEADING 

LEFT 

LENGTH 

LESS 

LIBRARY 

LIMIT 

LIMITS 

LINAGE 

LINAGE-COUNTER 

LINE 

LINE-COUNTER 

LINES 

LINKAGE 

LIST 

LOCK 

LOW-VALUE 
LOW-VALUES 


MEMORY 

MERGE 

MESSAGE 

MODE 

MODIFIABLE 

MODIFY 

MODULES 

MOVE 

MULTIPLE 

MULTIPLY 

NATIVE 

NEGATIVE 

NEXT 

NO 

NODISPLAY' 

NO-MOD 

NOT 

NUMBER 

NUMERIC 

OBJECT 

OBJECT-COMPUTER 

OCCURS 

OF 

OFF 

OMITTED 

ON 

ONLY 

OPEN 

OPTIONAL 

OR 

GRDEfij_ 

ORDER-AREA 

ORGANIZATION 

OUTPUT 

OVERFLOW 

PAGE 

PAGE-COUNTER 

PERFORM 

PF 

PFKEY 

PFKEYS 

PH 

PIC 

PICTURE 


PLUS 

POINTER 

POSITION 

POSITIVE 

PRINTING 

PRIOR 

PROCEDURE 

PROCEDURES 

PROCEED 

PROGRAM 

PROGRAM-ID 

PROTECT 

QUEUE 

QUOTE 

QUOTES 

RANDOM 

RANGE 

RD 

READ 

READY 

RECEIVE 

RECORD 

RECORDS 

REDEFINES 

REEL 

REFERENCES 

RELATIVE 

RELEASE 

REMAINDER 

REMOVAL 

RENAMES 

REPLACING 

REPORT 

REPORTING 

REPORTS 

RERUN 

RESERVE 

RESET 



REVERSED 

REWIND 

REWRITE 
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VS COBOL Reserved Words 


VS COBOL RESERVED WORDS (Continued) 


RF 

RH 

RIGHT 



RUN 


SWITCH-2 

SWITCH-3 

SWITCH-4 

SWITCH-5 

SWITCH-6 

SWITCH-7 

SYMBOLIC 

SYNC 

SYNCHRONIZED 


SAME 

SD 

SEARCH 

SECOND 

MM 

SECTION 

SECURITY 

SEGMENT 

SEGMENT-LIMIT 

SELECT 

SEND 

SENTENCE 

SEPARATE 

SEQUENCE 

SEQUENTIAL 

SET 



SIGN 

SIZE 

SORT 

SORT-MERGE 

SOURCE 

SOURCE-COMPUTER 

SPACE 

SPACES 

SPECIAL-NAMES 

STANDARD 

STANDARD-1 

START 

STATUS 

STOP 

STRING 

SUB-QUEUE-1 

SUB-QUEUE-2 

SUB-QUEUE-3 

SUBTRACT 

SUM 

SUPPRESS 


TABLE 

TALLYING 

TAPE 

TERMINAL 

TERMINATE 

TEXT 

THAN 

THEN 

THROUGH 

THRU 

TIME 

TIMEOUT 

TIMES 

TO 

TOP 

TRACE 

TRAILING 

TYPE 

UNIT 

UNSTRING 

UNTIL 

UP 

upon' 

USAGE 

USE 

USING 

VALUE 

VALUES 

VARYING 

VOLUME 


WANG-VS 

WHEN 

WITH 

WORDS 

WORKING-STORAGE 


WRITE 

ZERO 

ZEROES 

ZEROS 

+ 

/ 

< 

> 
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Hexadecimal to Decimal Conversion 


HEXADECIMAL TO DECIMAL CONVERSION 

Use this table to convert a hexadecimal number to a decimal number. The place value of 
each digit in a hexadecimal number is given in columns one to six. Determine each place 
value and then add the decimal values. For example, to determine the decimal equivalent of 
hex ABC, find the decimal value of A in the third hexadecimal column (2,560), of B in the 
second column (176), of C in the first column (12), and take their sum (2748). 


HEXADECIMAL COLUMNS 


Hex 

Sixth 

Dec 

Fifth 

Dec 

Fourth 

Dec 

Third 

Dec 

Second 

Dec 

First 

Dec 

Hex 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1,048,576 

65,536 

4,096 

256 

16 

1 

1 

2 

2,097,152 

131,072 

8,192 

512 

32 

2 

2 

3 

3,145,728 

196,608 

12,288 

768 

48 

3 

3 

4 

4,194,304 

262,144 

16,384 

1,024 

64 

4 

4 

5 

5,242,880 

327,680 

20,480 

1,280 

80 

5 

5 

6 

6,291,456 

393,216 

24,576 

1,536 

96 

6 

6 

7 

7,340,032 

458,752 

28,672 

1,792 

112 

7 

7 

8 

8,388,608 

524,288 

32,768 

2,048 

128 

8 

8 

9 

9,437,184 

589,824 

36,864 

2,304 

144 

9 

9 

A- 

10,485,760 

655,360 

40,960 

2,560 

160 

10 

A 

B 

11,534,336 

720,896 

45,056 

2,816 

176 

11 

B 

C 

12,582,912 

786,432 

49,152 

3,072 

192 

12 

C 

D 

13,631,488 

851,968 

53,248 

3,328 

208 

13 

D 

E 

14,680,064 

917,504 

57,344 

3,584 

224 

14 

E 

F 

15,728,640 

983,040 

61,440 

3,840 

240 

15 

F 
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Powers of 2 and 16 


POWERS OF 2 AND 16 




Field Attribute Characters 


FIELD ATTRIBUTE CHARACTERS 




DISPLAY 


HEXADECIMAL 



ATTRIBUTES 


CHARACTERS 

BRIGHT 

MODIFY 

ALL 

NOLINE 

80 

BRIGHT 

MODIFY 

UPPERCASE 

NOLINE 

81 

BRIGHT 

MODIFY 

NUMERIC 

NOLINE 

82 

BRIGHT 

PROTECT 

ALL 

NOLINE 

84 

BRIGHT 

PROTECT 

UPPERCASE 

NOLINE 

85 

BRIGHT 

PROTECT 

NUMERIC 

NOLINE 

86 

DIM 

MODIFY 

ALL 

NOLINE 

88 

DIM 

MODIFY 

UPPERCASE 

NOLINE 

89 

DIM 

MODIFY 

NUMERIC 

NOLINE 

8A 

DIM 

PROTECT 

ALL 

NOLINE 

8C 

DIM 

PROTECT 

UPPERCASE 

NOLINE 

8D 

DIM 

PROTECT 

NUMERIC 

NOLINE 

8E 

BLINK 

MODIFY 

ALL 

NOLINE 

90 

BLINK 

MODIFY 

UPPERCASE 

NOLINE 

91 

BLINK 

MODIFY 

NUMERIC 

NOLINE 

92 

BLINK 

PROTECT 

ALL 

NOLINE 

94 

BLINK 

PROTECT 

UPPERCASE 

NOLINE 

95 

BLINK 

PROTECT 

NUMERIC 

NOLINE 

96 

BLANK 

MODIFY 

ALL 

NOLINE 

98 

BLANK 

MODIFY 

UPPERCASE 

NOLINE 

99 

BLANK 

MODIFY 

NUMERIC 

NOLINE 

9A 

BLANK 

PROTECT 

ALL 

NOLINE 

9C 

BLANK 

PROTECT 

UPPERCASE 

NOLINE 

9D 

BLANK 

PROTECT 

NUMERIC 

NOLINE 

9E 

BRIGHT 

MODIFY 

ALL 

LINE 

AO 

BRIGHT 

MODIFY 

UPPERCASE 

LINE 

A1 

BRIGHT 

MODIFY 

NUMERIC 

LINE 

A2 

BRIGHT 

PROTECT 

ALL 

LINE 

A4 

BRIGHT 

PROTECT 

UPPERCASE 

LINE 

A5 

BRIGHT 

PROTECT 

NUMERIC 

LINE 

A6 

DIM 

MODIFY 

ALL 

LINE 

A8 

DIM 

MODIFY 

UPPERCASE 

LINE 

A9 

DIM 

MODIFY 

NUMERIC 

LINE 

AA 

DIM 

PROTECT 

ALL 

LINE 

AC 

DIM 

PROTECT 

UPPERCASE 

LINE 

AD 

DIM 

PROTECT 

NUMERIC 

LINE 

AE 

BLINK 

MODIFY 

ALL 

LINE 

BO 

BLINK 

MODIFY 

UPPERCASE 

LINE 

B1 

BLINK 

MODIFY 

NUMERIC 

LINE 

B2 

BLINK 

PROTECT 

ALL 

LINE 

B4 

BLINK 

PROTECT 

UPPERCASE 

LINE 

B5 

BLINK 

PROTECT 

NUMERIC 

LINE 

B6 

BLANK 

MODIFY 

ALL 

LINE 

B8 

BLANK 

MODIFY 

UPPERCASE 

LINE 

B9 

BLANK 

MODIFY 

NUMERIC 

LINE 

BA 

BLANK 

PROTECT 

ALL 

LINE 

BC 

BLANK 

PROTECT 

UPPERCASE 

LINE 

BD 

BLANK 

PROTECT 

NUMERIC 

LINE 

BE 
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Translation Table 


TRANSLATION TABLE 


Dec 

Hex 

Binary 

ASCII Printer 
Graphics 

ASCII Display 

Graphics EBCDIC 

0 

00 

00000000 



1 

01 

00000001 



2 

02 

00000010 



3 

03 

00000011 



4 

04 

00000100 1 



5 

05 

00000101 



6 

06 

00000110 



7 

07 

00000111 



8 

08 

00001000 



9 

09 

00001001 



10 

0A 

00001010 



11 

OB 

00001011 



12 

OC 

00001100 


!! 

13 

OD 

00001101 



14 

O.EL__ 

00001110 



15 

OF 

00001111 



16 

10 

00010000 


a 

17 

11 

00010001 


e 

18 

12 

00010010 


i 

19 

13 

00010011 


0 

■ 20 

14 

00010100 


u 

21 

15 

00010101 


a 

22 

16 

00010110 


e 

23 

17 

00010111 


i 

24 

18 

00011000;;. 


0 

25 

19 

00011001 


u 

26 

1A 

00011010 


a 

27 

IB 

00011011 


e 

28 

1C 

00011100 


u 

29 

ID 

00011101 


A 

30 

IE 

00011110 


O 

31 

IF 

00011111 


U 

32 

20 

00100000 

space 

space 

33 

21 

00100001 

i 

! 

34 

WSsMmS 

00100010 

,r 

•' 

35 

23 

00100011 

# 

tt 

36 

24 

00100100 

$ 

$ 

37 

25 

00100101 

% 

% 

38 

26 

00100110 

& 

& 

39 

27 

00100111 

’ 

• 








Translation Table 

TRANSLATION TABLE (continued) 







ASCII Printer 

ASCII Display 


Dec 

Hex 

Binary 

Graphics 

Graphics 

EBCDIC 

40 

28 

00101000 

( 

( 


41 

29 

00101001 

) 

) 


42 

2A 

00101010 




43 

2B 

00101011 

+ 

+ 


44 

2C 

00101100 




45 

2D 

00101101 




46 

2E 

00101110 




47 

2F 

00101111 

/ 

/ 


48 

30 

00110001 

0 

0 


49 

31 

00110000 

1 

1 


50 

32 

00110010 

2 

2 


51 

33 

00110011 

3 

3 


52 

34 

00110100 

4 

4 


53 

35 

00110101 

5 

5 


54 

36 

00110110 

6 

6 


55 

37 

00110111 

7 

7 


56 

38 

00111000 

8 

8 


57 

39 

00111001 

9 

9 


58 

3A 

00111010 




59 

3B 

00111011 


: 


60 

3C 

00111100 

< 

< 


61 

3D 

00111101 

- 

— 


62 

3E 

00111110 

> 

> 


63 

3F 

00111111 

? 

? 


64 

40 

01000000 




65 

41 

01000001 

A 

A 


66 

42 

01000010 

B 

B 


67 

43 

01000011 

c 

C 


68 

44 

01000100 

D 

D 


69 

45 

01000101 

E 

E 


■ 70 

46 

01000110 

F 

F 


71 

47 

01000111 

G 

G 


72 

48 

01001000 

H 

H 


73 

49 

01001001 

1 

1 


74 

4A 

01001010 

J 

J 

C 

75 

4B 

01001011 

K 

K 


76 

4C 

01001100 

L 

L 

< 

77 

4D 

01001101 

M 

M 

( 

78 

4E 

01001110 

N 

N 

+ 

79 

4F 

01001111 

0 

0 

! 


39 








Translation Table 

TRANSLATION TABLE (continued) 







ASCII Printer 

ASCII Display 


Dec 

Hex 

Binary 

Graphics 

Graphics 

EBCDIC 

H 80 

50 

01010000 

P 

P 

& 

81 

51 

01010001 

Q 

0 


82 

52 

01010010 

R 

Fi 


83 

53 

01010011 

S 

C; 


84 

54 

01010100 

T 

_ T 


85 

55 

01010101 

u 

U 


86 

56 

01010110 

V 

V 


87 

57 

01010111 

w 

w 


88 

58 

01011000 

X 

X 


89 

59 

01011001 

y 

V 


H 90 

5A 

01011010 

z 

Z 

j 

91 

5B 

01011011 

[ 

! 

S 

92 

5C 

01011100 

C 

<J; 

* 

93 

5D 

01011101 

] 

1 

) 

94 

5E 

01011110 

• 



95 

5F 

01011111 




96 

60 

01100000 



— 

97 

61 

01100001 

a 

a 

/ 

98 

62 

01100010 

b 

b 


99 

63 

01100011 

c 

c 


100 

64 

01100100 

d 

d 


101 

65 

01100101 

e 

e> 


102 

66 

01100110 

f 

\ 


| 103 

67 

01100111 

9 

9 


1 104 

68 


h 



105 

69 

01101001 

i 

i 


106 

6A 

01101010 

j 

j 


107 

6B 

01101011 

k 

k 

, 

108 

6C 

01101100 

1 

1 

% 

109 

6D 

01101101 

m 

m 

- 

1 110 

6E 

01101110 

n 

ri 

> 

111 

6F 

01101111 

0 

0 

? 

112 

70 

01110000 

P 

P 


113 

71 

01110000 

q 

q 


1 14 

72 

01110010 

r 



115 

73 

01110011 

S 

s 


116 

74 

01110100 

t 

t 


117 

75 

01110101 

u 

Li 


118 

76 

01110110 

V 

V 


119 

77 

01110111 

w 

W 



40 









Translation Table 


TRANSLATION TABLE (continued) 





ASCII Printer 

ASCII Display 


Dec 

Hex 

Binary 

Graphics 

Graphics 

EBCDIC 

120 

78 

01111000 

X 

X 


121 

79 

01111001 

y 

y 


122 

7A 

01111010 

z 

z 


123 

7B 

01111011 



# 

124 


■m 




125 

7D 

01111101 


e 

> 

126 

7E 

01111110 


c 

= 

127 

7F 

01111111 



u 

128 

80 

10000000 




129 

81 

10000001 



a 

K 130 


10000010 



b 

131 

83 

10000011 



c 

132 

84 

10000100 



d 

133 

85 

10000101 



e 

134 

1• 

10000110 



f 1 

135 

87 

10000111 



g 

136 

88 

10001000 



h 

137 

89 

10001001 



i 

138 

8A 

10001010 




139 

8B 

10001011 




H 140 

ac 

10001100 




141 

8D 

10001101 




142 

8E 

10001110 




143 

8F 

10001111 




144 

■■B WM 

HliioMtwi 




145 

91 

10010001 



j 

146 

92 

10010010 



k 

147 

93 

10010011 



1 

148 

94 

10010100 



m 

149 

95 

10010101 



n 

150 

96 




0 

151 

97 

10010111 



P 

152 

98 

10011000 



q 

153 

99 

10011001 



r 

154 

■DH 

10011010 




155 

9B 

10011011 




156 

9C 

10011100 




157 

9D 

10011101 




158 

9E 

10011110 




159 

9F 

10011111 
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191 

192 

193 

194 


BF 

CO 

Cl 

C2 


Translation Table 

TRANSLATION TABLE (continued) 








ASCII Printer 

ASCII Display 



Dec 

Hex 

Binary 

Graphics 

Graphics 

EBCDIC 


■ 160 

A0 

10100000 





161 

A1 

10100001 





162 

A2 

10100010 



s 


163 

A3 

10100011 



1 


164 

A4 

10100100 



u 


165 

A5 

10100101 



V 


166 

A6 

10100110 



w 


167 

A7 

10100111 



X 


168 

A8 

10101000 



y 


169 

A9 

10101001 



z 


170 

AA 

10101010 





171 

AB 

10101011 





172 

AC 

10101100 





173 

AD 

10101101 





174 

AE 

10101110 





175 

AF 

10101111 





176 

B0 

10110000 





177 

B1 

10110001 





178 

B2 

10110010 





179 

B3 

10110011 





180 

B4 

10110100 





181 

B5 

10110101 





182 

B6 

10110110 





183 

B7 

10110111 





184 


10111000 





185 

B9 

10111001 





186 

BA 

10111010 





187 

BB 

10111011 





188 

BC 

10111100 





189 

BD 

10111101 






10111110 

10111111 

11000000 

11000001 

11000010 


95 

C3 

11000011 

96 

C4 

11000100 

97 

C5 

11000101 

98 

C6 

11000110 

99 

C7 

11000111 
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TRANSLATION TABLE (continued) 



Dec 

Hex 

Binary 


200 

C8 

11001000 


201 

C9 

11001001 


202 

CA 

11001010 

mm 

203 

CB 

11001011 


■ 


11001100 

mm 

205 

CD 

11001101 


206 

CE 

11001110 


207 

CF 

11001111 

mm 

208 

DO 

11010000 


209 

D1 

11010001 

mm 

210 

D2 

11010010 


211 

D3 

11010011 


212 

D4 

11010100 

mm 

213 

D5 

11010101 


214 

06 

11010110 


215 

D7 

11010111 


216 

D8 

11011000 


217 

D9 

11011001 

mm 

218 

DA 

11011010 


219 

DB 

11011011 

mm 

220 

■ ;^DG ■ 

11011100 


221 

DD 

11011101 


222 

DE 

11011110 

mm 

223 

DF 

11011111 


224 

E0 

11100000 

_ 

225 

El 

11100001 


226 

E2 

11100010 


227 

E3 

11100011 

mm 

228 

E4 

11100100 


229 

E5 

11100101 

■■i 

230 

E6 

11100110 


231 

E7 

11100111 


232 

E8 

11101000 

Ml 

233 

E9 

11101001 


■Hi 

EA 

11101010 


Translation Table 


ASCII Printer ASCII Display 
Graphics Graphics EBCDIC 

H 

I 


J 

K 

L 

M 

N 

O 

P 

Q 

R 


S 

T 

U 

V 

w 

X 

Y 

z 
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